inherit CometVisu_individuals_LM_FC Logical_model

#___________________________________________________________________________________________________________________________________________
method CometVisu_individuals_LM_FC constructor {name descr args} {
 this inherited $name $descr
# Adding some physical presentations 
 set PM [CPool get_a_comet CometVisu_individuals_PM_FC_basic]
 this Add_PM $PM; this set_PM_active $PM

 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometVisu_individuals_LM_FC [P_L_methodes_set_CometVisu_individuals] {} {$this(L_actives_PM)}
Methodes_get_LC CometVisu_individuals_LM_FC [P_L_methodes_get_CometVisu_individuals] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
proc P_L_methodes_set_CometVisu_individuals_COMET_RE_FC {} {return [list {set_dot_description {v}}]}
Generate_LM_setters CometVisu_individuals_LM_FC [P_L_methodes_set_CometVisu_individuals_COMET_RE_FC]

#___________________________________________________________________________________________________________________________________________


